home *** CD-ROM | disk | FTP | other *** search
/ Internet Info 1994 March / Internet Info CD-ROM (Walnut Creek) (March 1994).iso / networking / osi / isode / quipu-7.0.patch-1 < prev    next >
Encoding:
Internet Message Format  |  1991-11-25  |  23.9 KB
  1. From: Colin Robbins <"/I=c/S=robbins/O=XTEL/PRMD=X-Tel Services/ADMD= /C=GB/"@chx400.switch.ch>
  2. Message-ID: <"13667 Fri Nov 22 10:38:30 1991"@xtel.co.uk>
  3. To: quipu@cs.ucl.ac.uk
  4. Subject: QUIPU-7.0 Patch 1
  5. Reply-To: quipu-support@cs.ucl.ac.uk
  6. Autoforwarded: TRUE
  7. X400-Recipients: non-disclosure:;
  8.  
  9.  
  10. - ------------------------------ Start of body part 1
  11.  
  12.  
  13. Dear Camayocs,
  14.  
  15. Included below is Patch #1 for QUIPU-7.0.  
  16.  
  17. The major aim of the patch is to fix DSA reliability problems. 
  18. The fixes include:
  19.     
  20.     Fixes to prevent replicated EDBs filling the Disk with garbage.    
  21.     Fixes to the scheduling code to increase DSA reliability.
  22.     Fix to correctly load 'NULL' EDB files.
  23.     Fix to 'alias' indexing problem.
  24.     A fix to the X.25 handler to allow for 'quick' connections!
  25.     Protocol alignment for an obsure read operation.
  26.     Test for hypothetcial deadlock case.
  27.     Fix to close the quipu.log file periodically.
  28.  
  29. For DUAs we have included a fix to the Quality of Service and
  30. T.61 string syntax handlers. 
  31.  
  32. The patch should be applied to the ISODE-7.0 source tree.  
  33. You will then need to re-compile ISODE and QUIPU.  To do this you
  34. should use 
  35.  
  36.     cd isode-7.0
  37.        ./make all all-quipu
  38.     su
  39.     ./make inst-all inst-quipu
  40.  
  41. And if you installed the "little" dish binaries you should do
  42.  
  43.     cd others/quipu/uips/dish
  44.     ./make all 
  45.     su
  46.     ./make inst-all
  47.  
  48.  
  49. Thanks to Paul Barker, Tim Howes, Mark Prior, Mike Roe, Thomas Lenggenhager, 
  50. George Michaelson, Oliver Wenzel, and the Giant Tortoise DSA for 
  51. helping detect and fix these bugs.
  52.  
  53. Colin
  54.  
  55.  
  56. *** /tmp/RCSAa10173    Wed Oct 23 11:39:17 1991
  57. - --- tsap/tp0ts.c    Wed Oct 23 10:59:06 1991
  58. ***************
  59. *** 121,127 ****
  60.       if (t = tb -> tb_retry) {
  61.       tb -> tb_retry = NULL;
  62.   
  63. !     if (async)
  64.           switch ((*tb -> tb_retryfnx) (tb, td)) {
  65.           case NOTOK:
  66.                   goto out;
  67. - --- 121,127 ----
  68.       if (t = tb -> tb_retry) {
  69.       tb -> tb_retry = NULL;
  70.   
  71. !     if (async && tb -> tb_retryfnx)
  72.           switch ((*tb -> tb_retryfnx) (tb, td)) {
  73.           case NOTOK:
  74.                   goto out;
  75. *** /tmp/RCSAa10173    Wed Oct 23 11:39:18 1991
  76. - --- tsap/ts2sunlink.c    Wed Oct 23 10:58:40 1991
  77. ***************
  78. *** 175,181 ****
  79.       register struct tp4pkt *t;
  80.   
  81.       t = NULL;
  82. !     if (async)
  83.       switch ((*tb -> tb_retryfnx) (tb, td)) {
  84.           case NOTOK:
  85.               goto out;
  86. - --- 175,181 ----
  87.       register struct tp4pkt *t;
  88.   
  89.       t = NULL;
  90. !     if (async && tb -> tb_retryfnx)
  91.       switch ((*tb -> tb_retryfnx) (tb, td)) {
  92.           case NOTOK:
  93.               goto out;
  94. *** /tmp/RCSAa10173    Wed Oct 23 11:39:19 1991
  95. - --- tsap/ts2tcp.c    Wed Oct 23 10:57:33 1991
  96. ***************
  97. *** 189,194 ****
  98. - --- 189,196 ----
  99.   #endif
  100.   #endif
  101.   
  102. +     tb -> tb_retryfnx = NULLIFP;    /* No need... */
  103. + 
  104.       return DONE;
  105.   }
  106.   
  107. *** /tmp/RCSAa10173    Wed Oct 23 11:39:19 1991
  108. - --- tsap/ts2tli.c    Wed Oct 23 10:58:54 1991
  109. ***************
  110. *** 459,465 ****
  111.       if (tb->tb_cc == -1) { /* call not yet connected */
  112.       struct TSAPaddr ta;
  113.   
  114. !     if (async) {
  115.           switch ((*tb -> tb_retryfnx) (tb, td)) {
  116.           case NOTOK:
  117.           goto out;
  118. - --- 459,465 ----
  119.       if (tb->tb_cc == -1) { /* call not yet connected */
  120.       struct TSAPaddr ta;
  121.   
  122. !     if (async && tb -> tb_retryfnx) {
  123.           switch ((*tb -> tb_retryfnx) (tb, td)) {
  124.           case NOTOK:
  125.           goto out;
  126. *** /tmp/RCSAa10173    Wed Oct 23 11:39:20 1991
  127. - --- tsap/ts2x25.c    Wed Oct 23 10:57:34 1991
  128. ***************
  129. *** 146,151 ****
  130. - --- 146,153 ----
  131.       (void) XTService (tb);      /* in case pktsize changed... */
  132.       LLOG (x25_log, LLOG_NOTICE,
  133.         ("connection %d to %s", fd, na2str (remote)));
  134. + 
  135. +     tb -> tb_retryfnx = NULLIFP;    /* No need... */
  136.   
  137.       return DONE;
  138.   }
  139.  
  140.  
  141. *** /tmp/RCSAa07079    Tue Nov 19 13:13:36 1991
  142. - --- quipu/get_dsa_info.c    Tue Nov 19 13:10:00 1991
  143. ***************
  144. *** 306,313 ****
  145.           break;
  146.   
  147.       case DI_TASK:
  148. !         task_dsa_info_wakeup(di);
  149. !         di_free(di);
  150.           break;
  151.   
  152.       default:
  153. - --- 306,313 ----
  154.           break;
  155.   
  156.       case DI_TASK:
  157. !         if ( task_dsa_info_wakeup(di) )
  158. !         di_free(di);
  159.           break;
  160.   
  161.       default:
  162. *** /tmp/RCSAa23005    Thu Nov 14 16:22:36 1991
  163. - --- quipu/ds_read.c    Thu Nov 14 16:16:25 1991
  164. ***************
  165. *** 160,172 ****
  166.                   quipu_ctx, realtarget)) != NULLATTR)
  167.                   goto out;
  168.   
  169.               error->dse_type = DSE_ATTRIBUTEERROR;
  170.               error->ERR_ATTRIBUTE.DSE_at_name = get_copy_dn (entryptr);
  171.               error->ERR_ATTRIBUTE.DSE_at_plist.DSE_at_what =DSE_AT_NOSUCHATTRIBUTE;
  172. !             if (arg->rda_eis.eis_select != NULLATTR)
  173. !                 error->ERR_ATTRIBUTE.DSE_at_plist.DSE_at_type = AttrT_cpy(arg->rda_eis.eis_select->attr_type);
  174. !             else
  175. !                 error->ERR_ATTRIBUTE.DSE_at_plist.DSE_at_type = NULLAttrT;
  176.               error->ERR_ATTRIBUTE.DSE_at_plist.DSE_at_value = NULLAttrV;
  177.               error->ERR_ATTRIBUTE.DSE_at_plist.dse_at_next = DSE_AT_NOPROBLEM;
  178.               dn_free (realtarget);
  179. - --- 160,174 ----
  180.                   quipu_ctx, realtarget)) != NULLATTR)
  181.                   goto out;
  182.   
  183. +             if (arg->rda_eis.eis_select == NULLATTR)
  184. +                 goto out;
  185. + 
  186.               error->dse_type = DSE_ATTRIBUTEERROR;
  187.               error->ERR_ATTRIBUTE.DSE_at_name = get_copy_dn (entryptr);
  188.               error->ERR_ATTRIBUTE.DSE_at_plist.DSE_at_what =DSE_AT_NOSUCHATTRIBUTE;
  189. !             error->ERR_ATTRIBUTE.DSE_at_plist.DSE_at_type = 
  190. !                     AttrT_cpy(arg->rda_eis.eis_select->attr_type);
  191. ! 
  192.               error->ERR_ATTRIBUTE.DSE_at_plist.DSE_at_value = NULLAttrV;
  193.               error->ERR_ATTRIBUTE.DSE_at_plist.dse_at_next = DSE_AT_NOPROBLEM;
  194.               dn_free (realtarget);
  195. ***************
  196. *** 206,219 ****
  197.       }
  198.   
  199.       if ((result->rdr_entry.ent_attr = eis_select (arg->rda_eis,entryptr, dsp ? NULLDN : binddn, quipu_ctx, realtarget)) == NULLATTR)
  200. !         if (! arg->rda_eis.eis_allattributes) {
  201.               error->dse_type = DSE_ATTRIBUTEERROR;
  202.                           error->ERR_ATTRIBUTE.DSE_at_name = get_copy_dn (entryptr);
  203.                           error->ERR_ATTRIBUTE.DSE_at_plist.DSE_at_what =DSE_AT_NOSUCHATTRIBUTE;
  204. !             if (arg->rda_eis.eis_select != NULLATTR)
  205. !                             error->ERR_ATTRIBUTE.DSE_at_plist.DSE_at_type = AttrT_cpy(arg->rda_eis.eis_select->attr_type);
  206. !             else
  207. !                             error->ERR_ATTRIBUTE.DSE_at_plist.DSE_at_type = NULLAttrT;
  208.                           error->ERR_ATTRIBUTE.DSE_at_plist.DSE_at_value = NULLAttrV;
  209.                           error->ERR_ATTRIBUTE.DSE_at_plist.dse_at_next = DSE_AT_NOPROBLEM;
  210.               dn_free (realtarget);
  211. - --- 208,220 ----
  212.       }
  213.   
  214.       if ((result->rdr_entry.ent_attr = eis_select (arg->rda_eis,entryptr, dsp ? NULLDN : binddn, quipu_ctx, realtarget)) == NULLATTR)
  215. !         if ((! arg->rda_eis.eis_allattributes) && arg->rda_eis.eis_select) {
  216.               error->dse_type = DSE_ATTRIBUTEERROR;
  217.                           error->ERR_ATTRIBUTE.DSE_at_name = get_copy_dn (entryptr);
  218.                           error->ERR_ATTRIBUTE.DSE_at_plist.DSE_at_what =DSE_AT_NOSUCHATTRIBUTE;
  219. !                     error->ERR_ATTRIBUTE.DSE_at_plist.DSE_at_type = 
  220. !                 AttrT_cpy(arg->rda_eis.eis_select->attr_type);
  221. ! 
  222.                           error->ERR_ATTRIBUTE.DSE_at_plist.DSE_at_value = NULLAttrV;
  223.                           error->ERR_ATTRIBUTE.DSE_at_plist.dse_at_next = DSE_AT_NOPROBLEM;
  224.               dn_free (realtarget);
  225.  
  226.  
  227.  
  228. *** /tmp/RCSAa11110    Thu Oct 17 14:15:48 1991
  229. - --- quipu/shadow.c    Thu Oct 17 13:51:18 1991
  230. ***************
  231. *** 58,64 ****
  232.   extern AttributeType at_xref;
  233.   extern AttributeType at_nssr;
  234.   extern AttributeType at_objectclass;
  235. - - extern Attr_Sequence cpy_as_comp();
  236.   extern short syntax_dn;
  237.   
  238.   typedef struct _atlist {
  239. - --- 58,63 ----
  240. ***************
  241. *** 357,363 ****
  242.                           "external reference missing"));
  243.               return;
  244.           }
  245. !         new_as = as_merge (new_as, cpy_as_comp (as));
  246.   
  247.           if ((as = as_find_type (new_as, at_objectclass)) == NULLATTR) {
  248.               LLOG (log_dsap, LLOG_EXCEPTIONS, (
  249. - --- 356,362 ----
  250.                           "external reference missing"));
  251.               return;
  252.           }
  253. !         new_as = as_merge (new_as, as_comp_cpy (as));
  254.   
  255.           if ((as = as_find_type (new_as, at_objectclass)) == NULLATTR) {
  256.               LLOG (log_dsap, LLOG_EXCEPTIONS, (
  257.  
  258.  
  259.  
  260. *** /tmp/RCSAa02760    Mon Oct 14 12:47:21 1991
  261. - --- dsap/common/qos.c    Mon Oct 14 12:46:55 1991
  262. ***************
  263. *** 354,362 ****
  264.       }
  265.       attrQoS_print (ps, p -> dit_quality, format);
  266.       }
  267. !     if (a -> dit_description)
  268. !     ps_printf (ps, format == READOUT ? "\n%*s(%s)" : " # %s",
  269. !            a -> dit_description, qos_indent, "");
  270.   }
  271.   
  272.   static struct attrQoS *str2attrQoS (str)
  273. - --- 359,371 ----
  274.       }
  275.       attrQoS_print (ps, p -> dit_quality, format);
  276.       }
  277. !     if (a -> dit_description) {
  278. !     if (format == READOUT)
  279. !         ps_printf (ps, "\n%*s(%s)", qos_indent, 
  280. !            a -> dit_description);
  281. !     else
  282. !         ps_printf (ps, " # %s", a -> dit_description);
  283. !     }
  284.   }
  285.   
  286.   static struct attrQoS *str2attrQoS (str)
  287.  
  288.  
  289. *** /tmp/RCSAa24516    Thu Nov  7 10:35:20 1991
  290. - --- dsap/common/string.c    Thu Nov  7 10:34:55 1991
  291. ***************
  292. *** 88,101 ****
  293.       0xe5, '?', '?', '?', '?', '?', '?', '?', '?', 
  294.   
  295.   /* Diaresis upper case */
  296. !     0xc4, '?', 0xc9, 0xcd, '?', 0xd3, 0xda, 0x82, 
  297.   /* Diaresis lower case */
  298. !     0xe4, '?', 0xe9, 0xed, '?', 0xf3, 0xfa, 0xff, '"', 
  299.   
  300.   /* Umlaut upper case */
  301. !     0xc4, '?', 0xc9, 0xcd, '?', 0xd3, 0xda, 0x82,  
  302.   /* Umlaut lower case */
  303. !     0xe4, '?', 0xe9, 0xed, '?', 0xf3, 0xfa, 0xff, '"', 
  304.   
  305.   /* Ring upper case */
  306.       0xc5, '?', '?', '?', '?', '?', '?', '?', 
  307. - --- 94,107 ----
  308.       0xe5, '?', '?', '?', '?', '?', '?', '?', '?', 
  309.   
  310.   /* Diaresis upper case */
  311. !         0xc4, '?', 0xcb, 0xcf, '?', 0xd6, 0xdc, 0x82,
  312.   /* Diaresis lower case */
  313. !         0xe4, '?', 0xeb, 0xef, '?', 0xf6, 0xfc, 0xff, '"',
  314.   
  315.   /* Umlaut upper case */
  316. !         0xc4, '?', 0xcb, 0xcf, '?', 0xd6, 0xdc, 0x82,
  317.   /* Umlaut lower case */
  318. !         0xe4, '?', 0xeb, 0xef, '?', 0xf6, 0xfc, 0xff, '"',
  319.   
  320.   /* Ring upper case */
  321.       0xc5, '?', '?', '?', '?', '?', '?', '?', 
  322. ***************
  323. *** 113,121 ****
  324.       '?', '?', '?', '?', '?', '?', '?', '?',  '_', 
  325.   
  326.   /* Umlaut upper case */
  327. !     0xc4, '?', 0xc9, 0xcd, '?', 0xd3, 0xda, 0x82,
  328.   /* Umlaut lower case */
  329. !     0xe4, '?', 0xe9, 0xed, '?', 0xf3, 0xfa, 0xff, '"', 
  330.   
  331.   /* Cedilla? upper case */
  332.       '?', 0xc7, '?', '?', '?', '?', '?', '?',
  333. - --- 119,127 ----
  334.       '?', '?', '?', '?', '?', '?', '?', '?',  '_', 
  335.   
  336.   /* Umlaut upper case */
  337. !         0xc4, '?', 0xcb, 0xcf, '?', 0xd6, 0xdc, 0x82,
  338.   /* Umlaut lower case */
  339. !         0xe4, '?', 0xeb, 0xef, '?', 0xf6, 0xfc, 0xff, '"',
  340.   
  341.   /* Cedilla? upper case */
  342.       '?', 0xc7, '?', '?', '?', '?', '?', '?',
  343.  
  344.  
  345. *** /tmp/RCSAa23601    Thu Aug 22 13:09:42 1991
  346. - --- quipu/conn_retry.c    Thu Aug 22 13:06:38 1991
  347. ***************
  348. *** 41,46 ****
  349. - --- 41,48 ----
  350.   
  351.   struct connection    * conn_alloc();
  352.   
  353. + static test_deadlock();
  354. + 
  355.   /*
  356.   * Deal with an incoming acceptance of association establishment.
  357.   * Return value says whether anything has happened or not.
  358. ***************
  359. *** 123,129 ****
  360.           /* See if there is another DSA to try... */
  361.           if ((on->on_state != ON_ABANDONED) && (on->on_dsas != NULL_DI_BLOCK)) {    
  362.               LLOG (log_dsap,LLOG_NOTICE,("Trying a different DSA (NOTOK)..."));
  363. !             if (oper_chain (on) == OK) {
  364.                   if (ont == NULLOPER)
  365.                       conn->cn_operlist = onext;
  366.                   else
  367. - --- 125,132 ----
  368.           /* See if there is another DSA to try... */
  369.           if ((on->on_state != ON_ABANDONED) && (on->on_dsas != NULL_DI_BLOCK)) {    
  370.               LLOG (log_dsap,LLOG_NOTICE,("Trying a different DSA (NOTOK)..."));
  371. !             if ((test_deadlock(on) == OK) &&
  372. !                (oper_chain (on) == OK)) {
  373.                   if (ont == NULLOPER)
  374.                       conn->cn_operlist = onext;
  375.                   else
  376. ***************
  377. *** 137,143 ****
  378.           }
  379.           conn_extract(conn);
  380.       break;
  381. ! 
  382.       case DONE :
  383.           DLOG (log_dsap,LLOG_NOTICE,( "D-BIND.RETRY DONE (%d)",conn->cn_ad));
  384.           if( (conn->cn_ad == NOTOK) || (conn_req_aux(conn) != OK))
  385. - --- 140,146 ----
  386.           }
  387.           conn_extract(conn);
  388.       break;
  389. !         
  390.       case DONE :
  391.           DLOG (log_dsap,LLOG_NOTICE,( "D-BIND.RETRY DONE (%d)",conn->cn_ad));
  392.           if( (conn->cn_ad == NOTOK) || (conn_req_aux(conn) != OK))
  393. ***************
  394. *** 153,159 ****
  395.               /* See if there is another DSA to try... */
  396.               if ((on->on_state != ON_ABANDONED) && (on->on_dsas != NULL_DI_BLOCK)) {    
  397.                   LLOG (log_dsap,LLOG_NOTICE,("Trying a different DSA (DONE)..."));
  398. !                 if (oper_chain (on) == OK) {
  399.                       if (ont == NULLOPER)
  400.                           conn->cn_operlist = onext;
  401.                       else
  402. - --- 156,163 ----
  403.               /* See if there is another DSA to try... */
  404.               if ((on->on_state != ON_ABANDONED) && (on->on_dsas != NULL_DI_BLOCK)) {    
  405.                   LLOG (log_dsap,LLOG_NOTICE,("Trying a different DSA (DONE)..."));
  406. !                 if ((test_deadlock(on) == OK) &&
  407. !                    (oper_chain (on) == OK)) {
  408.                       if (ont == NULLOPER)
  409.                           conn->cn_operlist = onext;
  410.                       else
  411. ***************
  412. *** 195,198 ****
  413. - --- 199,241 ----
  414.   
  415.       if (pstate != conn->cn_state)
  416.       conn->cn_last_used = timenow;
  417. + }
  418. + 
  419. + 
  420. + static test_deadlock (on)
  421. + struct oper_act    * on;
  422. + {
  423. + struct di_block    * di;
  424. + register int ndi = 0;
  425. + 
  426. +     for (di= on -> on_dsas; di!= NULL_DI_BLOCK; di= di -> di_next) 
  427. +         ndi++;
  428. + 
  429. +     /* To proceed, we need to contact on_dsas. */
  430. +     /* Check they do not rely on the conn that has just failed */
  431. +     /* Possibly a better way of testing this... */
  432. + 
  433. +     for (di= on -> on_dsas; di!= NULL_DI_BLOCK; di= di -> di_next) 
  434. +         if (( di-> di_state == DI_DEFERRED ) &&
  435. +             ( di-> di_perform ) &&
  436. +             ( di-> di_perform-> on_conn ))
  437. +             switch (di-> di_perform-> on_conn-> cn_state) {
  438. +                 case 0:
  439. +                 case CN_FAILED:
  440. +                 ndi--;
  441. +             }
  442. + 
  443. +     if (ndi != 0)
  444. +         return OK;
  445. + 
  446. +     
  447. +     if (on -> on_task) {    
  448. +         on -> on_task -> tk_resp.di_error.de_err.dse_type =
  449. +             DSE_SERVICEERROR;
  450. +         on -> on_task -> 
  451. +             tk_resp.di_error.de_err.ERR_SERVICE.DSE_sv_problem =
  452. +             DSE_SV_UNABLETOPROCEED;
  453. +     }
  454. +     
  455. +     return NOTOK;
  456.   }
  457. *** /tmp/RCSAa23601    Thu Aug 22 13:09:42 1991
  458. - --- quipu/get_dsa_info.c    Thu Aug 22 11:10:31 1991
  459. ***************
  460. *** 61,66 ****
  461. - --- 61,67 ----
  462.       struct di_block    * di_lookup;
  463.       struct oper_act    * on = NULLOPER;
  464.       int           res;
  465. +     Entry          te = NULLENTRY;
  466.   
  467.       DLOG (log_dsap,LLOG_TRACE,("get_dsa_info()"));
  468.   
  469. ***************
  470. *** 115,132 ****
  471.       }
  472.       }
  473.   
  474. !     if ((res = really_find_entry(dn, TRUE, dn_stack, FALSE, &((*di_p)->di_entry), err, &(di_lookup))) == DS_OK) 
  475.       /* is it really OK ??? */
  476. !     if (((*di_p)->di_entry ->e_data == E_TYPE_CONSTRUCTOR) 
  477. !         || ((*di_p)->di_entry->e_dsainfo == NULL)
  478. !         || ((*di_p)->di_entry->e_dsainfo->dsa_addr == NULLPA)) {
  479.           DN dn_found;
  480.           DLOG(log_dsap, LLOG_NOTICE, ("rfe returned a constructor"));
  481. !         dn_found = get_copy_dn((*di_p)->di_entry);
  482. !         res = constructor_dsa_info(dn_found,dn_stack,FALSE,(*di_p)->di_entry,err,&(di_lookup));
  483.           dn_free (dn_found);
  484. !     } else
  485.           (*di_p)->di_entry->e_refcount++;
  486.   
  487.       switch (res)
  488.       {
  489. - --- 116,137 ----
  490.       }
  491.       }
  492.   
  493. !     if ((res = really_find_entry(dn, TRUE, dn_stack, FALSE, &te, 
  494. !                 err, &(di_lookup))) == DS_OK) 
  495.       /* is it really OK ??? */
  496. !     if ((te->e_data == E_TYPE_CONSTRUCTOR) 
  497. !         || (te->e_dsainfo == NULL)
  498. !         || (te->e_dsainfo->dsa_addr == NULLPA)) {
  499.           DN dn_found;
  500.           DLOG(log_dsap, LLOG_NOTICE, ("rfe returned a constructor"));
  501. !         dn_found = get_copy_dn(te);
  502. !         res = constructor_dsa_info(dn_found, dn_stack, FALSE, te,
  503. !                        err, &(di_lookup));
  504.           dn_free (dn_found);
  505. !     } else {
  506. !         (*di_p)->di_entry = te;
  507.           (*di_p)->di_entry->e_refcount++;
  508. +     }
  509.   
  510.       switch (res)
  511.       {
  512. *** /tmp/RCSAa23601    Thu Aug 22 13:09:42 1991
  513. - --- quipu/di_block.c    Thu Aug 22 09:19:15 1991
  514. ***************
  515. *** 49,54 ****
  516. - --- 49,59 ----
  517.   struct di_block *di;
  518.   {
  519.       DLOG(log_dsap, LLOG_TRACE, ("di_free()"));
  520. + 
  521. +     if (di->di_state == -1) {
  522. +         LLOG (log_dsap,LLOG_EXCEPTIONS, ("duplicate di_free"));
  523. +         return;
  524. +     }
  525.   
  526.       switch (di->di_type) {
  527.         case DI_GLOBAL:     break;
  528.  
  529.  
  530.  
  531. *** /tmp/RCSAa16265    Wed Aug 21 15:59:06 1991
  532. - --- quipu/entry_load.c    Wed Aug 21 15:37:27 1991
  533. ***************
  534. *** 362,370 ****
  535.   
  536.           if (file_check(offset, e) == OK) {
  537.                   if ((e->e_children = getentry_block(e, filename)) == NULLAVL) {
  538.               if (e->e_allchildrenpresent != FALSE &&
  539.                   e->e_leaf == FALSE) {
  540. - -                 e->e_allchildrenpresent = FALSE;
  541.                   got_all = FALSE;
  542.                   return(OK);
  543.               } else
  544. - --- 362,372 ----
  545.   
  546.           if (file_check(offset, e) == OK) {
  547.                   if ((e->e_children = getentry_block(e, filename)) == NULLAVL) {
  548. +             if (parse_status != 0)
  549. +                 return(NOTOK);
  550. + 
  551.               if (e->e_allchildrenpresent != FALSE &&
  552.                   e->e_leaf == FALSE) {
  553.                   got_all = FALSE;
  554.                   return(OK);
  555.               } else
  556. *** dsap/common/_turbo_index.c    Tue Aug 13 13:06:57 1991
  557. - --- dsap/common/turbo_index.c    Tue Aug 13 13:07:27 1991
  558. ***************
  559. *** 472,477 ****
  560. - --- 472,478 ----
  561.       for ( j = i + 1; pindex->i_nonlocalaliases[ j ]; j++ )
  562.           pindex->i_nonlocalaliases[ j - 1 ] =
  563.               pindex->i_nonlocalaliases[ j ];
  564. +     pindex->i_nonlocalaliases[ j - 1 ] = NULLENTRY;
  565.   
  566.       return;
  567.   }
  568. *** dsap/common/_attribute.c    Mon Aug 12 19:11:30 1991
  569. - --- dsap/common/attribute.c    Mon Aug 12 19:11:54 1991
  570. ***************
  571. *** 199,204 ****
  572. - --- 199,206 ----
  573.              if (acl->ac_default == NULLACL_INFO)
  574.                  acl->ac_default = acl_default ();
  575.               }
  576. +     } else {
  577. +         eptr->e_acl = NULLACL;
  578.       }
  579.   
  580.       if (as = entry_find_type (eptr,at_edbinfo)) {
  581. *** dsap/common/attribute.c~    Wed Jul 17 12:25:03 1991
  582. - --- dsap/common/attribute.c    Mon Aug 12 15:35:30 1991
  583. ***************
  584. *** 368,373 ****
  585. - --- 371,377 ----
  586.                      || (AttrT_cmp (as->attr_type,at_alias) == 0)
  587.                      || (AttrT_cmp (as->attr_type,at_inherit) == 0)) {
  588.                       LLOG(log_dsap,LLOG_EXCEPTIONS,("Inherited system attribute only allowed in default case"));
  589. +                     error->dse_type = DSE_ATTRIBUTEERROR;
  590.                       error->ERR_ATTRIBUTE.DSE_at_name = get_copy_dn (eptr);
  591.                       error->ERR_ATTRIBUTE.DSE_at_plist.DSE_at_what =DSE_AT_CONSTRAINTVIOLATION;
  592.                       error->ERR_ATTRIBUTE.DSE_at_plist.DSE_at_type = AttrT_cpy (as->attr_type);
  593. ***************
  594. *** 379,384 ****
  595. - --- 383,389 ----
  596.                   if (as->attr_value == NULLAV) {
  597.                       if ((nas = entry_find_type (eptr,as->attr_type)) == NULLATTR) {
  598.                           LLOG(log_dsap,LLOG_EXCEPTIONS,("Value missing for always inherited attribute type"));
  599. +                             error->dse_type = DSE_ATTRIBUTEERROR;
  600.                           error->ERR_ATTRIBUTE.DSE_at_name = get_copy_dn (eptr);
  601.                           error->ERR_ATTRIBUTE.DSE_at_plist.DSE_at_what =DSE_AT_NOSUCHATTRIBUTE;
  602.                           error->ERR_ATTRIBUTE.DSE_at_plist.DSE_at_type = AttrT_cpy (as->attr_type);
  603. ***************
  604. *** 394,399 ****
  605. - --- 399,405 ----
  606.                   if (as->attr_value == NULLAV) {
  607.                       if ((nas = entry_find_type (eptr,as->attr_type)) == NULLATTR) {
  608.                           LLOG(log_dsap,LLOG_EXCEPTIONS,("Value missing for default inherited attribute type"));
  609. +                             error->dse_type = DSE_ATTRIBUTEERROR;
  610.                           error->ERR_ATTRIBUTE.DSE_at_name = get_copy_dn (eptr);
  611.                           error->ERR_ATTRIBUTE.DSE_at_plist.DSE_at_what =DSE_AT_NOSUCHATTRIBUTE;
  612.                           error->ERR_ATTRIBUTE.DSE_at_plist.DSE_at_type = AttrT_cpy (as->attr_type);
  613.  
  614. *** /tmp/RCSAa27974    Thu Nov 21 13:36:17 1991
  615. - --- dsap/x500as/af.py    Thu Nov 21 13:35:40 1991
  616. ***************
  617. *** 88,93 ****
  618. - --- 88,99 ----
  619.           ANY [[a asn]]
  620.               OPTIONAL
  621.       }
  622. +     %D{
  623. +         if ((*parm)->asn == NULLPE)
  624. +             (*parm)->p_type = ALG_PARM_ABSENT;
  625. +         else
  626. +             (*parm)->p_type = ALG_PARM_UNKNOWN;
  627. +     %}
  628.   
  629.   SubjectPublicKeyInfo [[P struct key_info *]]
  630.       ::=
  631. *** dsap/common/_cpair.c       Wed Jul 17 12:25:16 1991
  632. - --- dsap/common/cpair.c    Tue Sep 17 14:41:19 1991
  633. ***************
  634. *** 92,98 ****
  635.     str = ptr;
  636.     if ((str != NULLCP) && (index(str, '#') != NULLCP))
  637.     {
  638. !     result->cert = str2cert(str);
  639.       if (result->cert == (struct certificate *) 0)
  640.       {
  641.         free((char *) result);
  642. - --- 92,98 ----
  643.     str = ptr;
  644.     if ((str != NULLCP) && (index(str, '#') != NULLCP))
  645.     {
  646. !     result->reverse = str2cert(str);
  647.       if (result->cert == (struct certificate *) 0)
  648.       {
  649.         free((char *) result);
  650.  
  651.  
  652. *** /tmp/RCSAa23032    Thu Nov 21 09:06:53 1991
  653. - --- quipu/task_select.c    Thu Nov 21 09:06:27 1991
  654. ***************
  655. *** 40,45 ****
  656. - --- 40,54 ----
  657.   time_t lastedb_update;
  658.   struct oper_act * pending_ops = NULLOPER;
  659.   
  660. + #ifndef NO_STATS
  661. + 
  662. + extern LLog * log_stat;
  663. + static time_t last_log_close = (time_t)0;
  664. + #define LOGOPENTIME 60*60    /* Close once every 60 minutes */
  665. + 
  666. + #endif
  667. + 
  668. + 
  669.   struct task_act    * task_select(secs_p)
  670.   int        * secs_p;
  671.   {
  672. ***************
  673. *** 437,442 ****
  674. - --- 446,462 ----
  675.           (*secs_p) = 0;    /* let connection be re-used */
  676.          }
  677.       }
  678. + 
  679. + #ifndef NO_STATS
  680. +     if ( (timenow - last_log_close) >= LOGOPENTIME ) {
  681. +     ll_close (log_stat);
  682. +     last_log_close = timenow;
  683. +     } else {
  684. +     if ( (ret_tk == NULLTASK) && (*secs_p >= LOGOPENTIME))
  685. +         *secs_p = LOGOPENTIME;    /* Wake to close log! */
  686. +     }
  687. + #endif
  688. + 
  689.   
  690.       return(ret_tk);
  691.   }
  692. *** /tmp/RCSAa23069    Thu Nov 21 09:16:46 1991
  693. - --- dsap/common/entry.c    Thu Nov 21 09:15:01 1991
  694. ***************
  695. *** 36,41 ****
  696. - --- 36,46 ----
  697.   AttributeType at_alias;
  698.   AttributeType at_objectclass;
  699.   
  700. + extern int local_master_size;
  701. + extern int local_slave_size;
  702. + extern int local_cache_size;
  703. + 
  704. + 
  705.   directory_free (directory)
  706.   Entry directory;
  707.   {
  708. ***************
  709. *** 47,52 ****
  710. - --- 52,67 ----
  711.   
  712.           if (directory->e_children != NULLAVL)
  713.               (void) avl_free(directory->e_children, directory_free);
  714. + 
  715. +         switch (directory->e_data) {
  716. +         case E_TYPE_SLAVE:
  717. +             local_slave_size--; break;
  718. +         case E_DATA_MASTER:
  719. +             local_master_size--; break;
  720. +         case E_TYPE_CACHE_FROM_MASTER:
  721. +             local_cache_size--; break;
  722. +         }
  723. + 
  724.           entry_free(directory);
  725.       }
  726.   }
  727. *** /tmp/RCSAa28299    Thu Nov 21 15:45:25 1991
  728. - --- quipu/dsa_chain.c    Thu Nov 21 15:43:54 1991
  729. ***************
  730. *** 995,1002 ****
  731.       */
  732.       sort_dsa_list (&di);
  733.   
  734. !     if (tk == NULLTASK)
  735. !     return;        /* already done it ! */
  736.   
  737.       if(di2cref(di, &(tk->tk_resp.di_error.de_err), tk->tk_conn->cn_ctx) != OK)
  738.       {
  739. - --- 995,1006 ----
  740.       */
  741.       sort_dsa_list (&di);
  742.   
  743. !     if (tk == NULLTASK) {
  744. !     if (di->di_oper == NULLOPER)
  745. !         return FALSE;
  746. !     else
  747. !         return TRUE;
  748. !     }
  749.   
  750.       if(di2cref(di, &(tk->tk_resp.di_error.de_err), tk->tk_conn->cn_ctx) != OK)
  751.       {
  752. ***************
  753. *** 1010,1023 ****
  754.           task_conn_extract(tk);
  755.           task_error(tk);
  756.           task_extract(tk);
  757. !         return;
  758.       }
  759. !     return;
  760.       }
  761.   
  762.       task_conn_extract(tk);
  763.       task_error(tk);
  764.       task_extract(tk);
  765.   }
  766.   
  767.   static struct access_point * di2ap (di)
  768. - --- 1014,1029 ----
  769.           task_conn_extract(tk);
  770.           task_error(tk);
  771.           task_extract(tk);
  772. !         return TRUE;
  773.       }
  774. !     return TRUE;
  775.       }
  776.   
  777.       task_conn_extract(tk);
  778.       task_error(tk);
  779.       task_extract(tk);
  780. + 
  781. +     return TRUE;
  782.   }
  783.   
  784.   static struct access_point * di2ap (di)
  785. *** /tmp/RCSAa01769    Fri Nov 22 09:37:56 1991
  786. - --- others/quipu/uips/dish/Makefile    Fri Nov 22 09:35:04 1991
  787. ***************
  788. *** 154,162 ****
  789.           -@ls -gls $@
  790.           -@echo ""
  791.   
  792.   xquipurc:    quipurc.o $(LIBES)
  793.           $(LDCC) $(LDFLAGS) -o $@ quipurc.o \
  794. !             $(LIBDSAP) $(LIBISODE) $(LSOCKET) $(LIBGDBM)
  795.   
  796.   l-quipurc:;    $(LINT) $(LFLAGS) quipurc.c $(LLIBS) \
  797.               | grep -v "warning: possible pointer alignment problem"
  798. - --- 154,165 ----
  799.           -@ls -gls $@
  800.           -@echo ""
  801.   
  802. + # Don't use shared libs for xquipurc.
  803. + 
  804.   xquipurc:    quipurc.o $(LIBES)
  805.           $(LDCC) $(LDFLAGS) -o $@ quipurc.o \
  806. !             $(TOPDIR)libdsap.a $(TOPDIR)libisode.a \
  807. !             $(LSOCKET) $(LIBGDBM)
  808.   
  809.   l-quipurc:;    $(LINT) $(LFLAGS) quipurc.c $(LLIBS) \
  810.               | grep -v "warning: possible pointer alignment problem"
  811. *** /tmp/RCSAa23166    Thu Nov 21 09:36:21 1991
  812. - --- dsap/oidtable.oc    Fri Aug 23 08:40:19 1991
  813. ***************
  814. *** 156,164 ****
  815.   
  816.   pilotDSA:     pilotObjectClass.21 : dsa : dSAQuality : 
  817.   
  818. ! qualityLabelledData:     pilotObjectClass.22 : top : dSAQuality : \
  819.       subtreeMinimumQuality, subtreeMaximumQuality
  820.   
  821.   # QUIPU defined object classes
  822.   
  823.   quipuDSA:        quipuObjectClass.1 : dSA : \
  824. - --- 162,174 ----
  825.   
  826.   pilotDSA:     pilotObjectClass.21 : dsa : dSAQuality : 
  827.   
  828. ! # Retired - wrong mandatory attribute
  829. ! oldQualityLabelledData:     pilotObjectClass.22 : top : dSAQuality : \
  830.       subtreeMinimumQuality, subtreeMaximumQuality
  831.   
  832. + qualityLabelledData:     pilotObjectClass.23 : top : singleLevelQuality : \
  833. +     subtreeMinimumQuality, subtreeMaximumQuality
  834. + 
  835.   # QUIPU defined object classes
  836.   
  837.   quipuDSA:        quipuObjectClass.1 : dSA : \
  838. *** /tmp/patchlevel    Thu Nov 21 15:56:54 1991
  839. - --- quipu/patchlevel    Thu Nov 21 15:56:12 1991
  840. ***************
  841. *** 0 ****
  842. - --- 1,1 ----
  843. + 1:Thu Nov 21 15:56:12 GMT 1991
  844.  
  845. - ------------------------------ End of body part 1
  846.  
  847. ------------------------------ End of forwarded message 1
  848.  
  849.